MacWorld 1995 March/Macworld CD-ROM (March 1995).cdr/Demos/Wrath of the Gods/31AM1/00001.ls

Text File | 1994-07-14 | 7.8 KB | 333 lines

on setlocal
end

on killLocal
end

on OrSend
  global currentGems, firstOr, o31a, orCount
  if currentGems = 0 then
    if firstOr = 0 then
      set firstOr to 1
      goOr("oQ6")
    else
      if firstOr = 1 then
        goOr("oQ5")
      end if
    end if
  else
    if currentGems > 0 then
      if firstOr = 0 then
        set firstOr to 1
        goOr("oQ6")
      else
        if firstOr = 1 then
          if o31a < 3 then
            if orCount = 0 then
              set orCount to 1
              goOr("oQ1")
            else
              if orCount = 1 then
                set orCount to 2
                goOr("oQ2")
              else
                if orCount = 2 then
                  set orCount to 0
                  goOr("oQ3")
                end if
              end if
            end if
          else
            if o31a = 3 then
              goOr("oQ4")
            else
              if o31a = 4 then
                goOr("endO")
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on hintSet
  global o31a
  puppetSprite(8, 1)
  puppetSprite(9, 1)
  puppetSprite(10, 1)
  if o31a = 1 then
    set the castNum of sprite 8 to the number of cast "hint1"
  else
    if o31a = 2 then
      set the castNum of sprite 8 to the number of cast "hint2"
      set the castNum of sprite 9 to the number of cast "upAr"
    else
      if o31a = 3 then
        set the castNum of sprite 8 to the number of cast "hint3"
        set the castNum of sprite 9 to the number of cast "upAr"
      else
        if o31a = 4 then
          set the castNum of sprite 8 to the number of cast "hint4"
          set the castNum of sprite 9 to the number of cast "upAr"
        end if
      end if
    end if
  end if
end

on killOrPup
  puppetSprite(8, 0)
  puppetSprite(9, 0)
  puppetSprite(10, 0)
end

on hint
  global o31a
  if o31a = 0 then
    doSound("freeHint")
    set o31a to 1
    set the castNum of sprite 8 to the number of cast "hint1"
  else
    if o31a = 1 then
      calcScore(-5)
      set o31a to 2
      set the castNum of sprite 8 to the number of cast "hint2"
      set the castNum of sprite 9 to the number of cast "upAr"
      set the castNum of sprite 10 to 0
    else
      if o31a = 2 then
        calcScore(-5)
        set o31a to 3
        set the castNum of sprite 8 to the number of cast "hint3"
        set the castNum of sprite 9 to the number of cast "upAr"
        set the castNum of sprite 10 to 0
      else
        if o31a = 3 then
          calcScore(-5)
          set o31a to 4
          set the castNum of sprite 8 to the number of cast "hint4"
          set the castNum of sprite 9 to the number of cast "upAr"
          set the castNum of sprite 10 to 0
        end if
      end if
    end if
  end if
end

on upArrow
  global o31a
  if o31a = 2 then
    set the castNum of sprite 8 to the number of cast "hint1"
    set the castNum of sprite 9 to 0
    set the castNum of sprite 10 to the number of cast "downAr"
  else
    if o31a = 3 then
      if the castNum of sprite 8 = the number of cast "hint3" then
        set the castNum of sprite 8 to the number of cast "hint2"
        set the castNum of sprite 9 to the number of cast "upAr"
        set the castNum of sprite 10 to the number of cast "downAr"
      else
        if the castNum of sprite 8 = the number of cast "hint2" then
          set the castNum of sprite 8 to the number of cast "hint1"
          set the castNum of sprite 9 to 0
          set the castNum of sprite 10 to the number of cast "downAr"
        end if
      end if
    else
      if o31a = 4 then
        if the castNum of sprite 8 = the number of cast "hint4" then
          set the castNum of sprite 8 to the number of cast "hint3"
          set the castNum of sprite 9 to the number of cast "upAr"
          set the castNum of sprite 10 to the number of cast "downAr"
        else
          if the castNum of sprite 8 = the number of cast "hint3" then
            set the castNum of sprite 8 to the number of cast "hint2"
            set the castNum of sprite 9 to the number of cast "upAr"
            set the castNum of sprite 10 to the number of cast "downAr"
          else
            if the castNum of sprite 8 = the number of cast "hint2" then
              set the castNum of sprite 8 to the number of cast "hint1"
              set the castNum of sprite 9 to 0
              set the castNum of sprite 10 to the number of cast "downAr"
            end if
          end if
        end if
      end if
    end if
  end if
end

on downArrow
  global o31a
  if o31a = 2 then
    set the castNum of sprite 8 to the number of cast "hint2"
    set the castNum of sprite 9 to the number of cast "upAr"
    set the castNum of sprite 10 to 0
  else
    if o31a = 3 then
      if the castNum of sprite 8 = the number of cast "hint1" then
        set the castNum of sprite 8 to the number of cast "hint2"
        set the castNum of sprite 9 to the number of cast "upAr"
        set the castNum of sprite 10 to the number of cast "downAr"
      else
        if the castNum of sprite 8 = the number of cast "hint2" then
          set the castNum of sprite 8 to the number of cast "hint3"
          set the castNum of sprite 9 to the number of cast "upAr"
          set the castNum of sprite 10 to 0
        end if
      end if
    else
      if o31a = 4 then
        if the castNum of sprite 8 = the number of cast "hint1" then
          set the castNum of sprite 8 to the number of cast "hint2"
          set the castNum of sprite 9 to the number of cast "upAr"
          set the castNum of sprite 10 to the number of cast "downAr"
        else
          if the castNum of sprite 8 = the number of cast "hint2" then
            set the castNum of sprite 8 to the number of cast "hint3"
            set the castNum of sprite 9 to the number of cast "upAr"
            set the castNum of sprite 10 to the number of cast "downAr"
          else
            if the castNum of sprite 8 = the number of cast "hint3" then
              set the castNum of sprite 8 to the number of cast "hint4"
              set the castNum of sprite 9 to the number of cast "upAr"
              set the castNum of sprite 10 to 0
            end if
          end if
        end if
      end if
    end if
  end if
end

on bk
  global mode
  if mode = 3 then
    nothing()
  end if
end

on you
  global mode
  if mode = 3 then
    nothing()
  end if
end

on sky
  global mode
  if mode = 3 then
    lookItem("Looks like the sky")
  end if
end

on sea
  global mode
  if mode = 3 then
    lookItem("Looks like the sea")
  end if
end

on argo
  global mode
  if mode = 3 then
    lookItem("Looks like the Argo")
  end if
end

on x1
  global mode, cont
  if mode = 1 then
    set cont to 1
    go("x*tiller")
  else
    if mode = 3 then
      lookItem("Looks like the tiller")
    end if
  end if
end

on cx1
  global cont
  if cont = 1 then
    set cont to 0
    go("take tiller")
  end if
end

on x2
  global mode, cont
  if mode = 3 then
    lookItem("Looks like the Argo")
  end if
end

on cx2
  global useWax31a, crash30a
  if useWax31a = 1 then
    set useWax31a to 0
    go("sail on")
  else
    go("crash")
  end if
end

on c2x2
  sound stop 1
  go("Q2")
end

on c3x2
  go(1, "32AM1")
end

on x3
  global mode, invCurrent, useWax31a
  if (mode = 4) and (useWax31a = 0) and ((invCurrent = "w26a") or (invCurrent = "c67a")) then
    set useWax31a to 1
    doSound("grabInventory")
    go("use wax")
  end if
end

on cx3
  go("at x")
end

on s1
  global mode
  if (mode = 1) or (mode = 3) then
    set the castNum of sprite 24 to 0
    when keyDown then nothing
    goOr("siren")
  end if
end

on v1
  global mode
  if mode = 1 then
    go("removes wax")
  end if
end

on c2v1
  go("hears")
end

on c3v1
  go("disembarked", "32AM1")
end

on cv1
  go("Q3")
end

on v2
  global mode
  if mode = 3 then
    lookItem("Looks like the tiller")
  end if
end